home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 034a / twview82.zip / QUEUE.INC < prev    next >
Text File  |  1991-02-04  |  914b  |  40 lines
  1.  
  2. procedure serve( var q : queue; var e1, e2 : sector );
  3. begin
  4.   if q.front = 0 then
  5.     writeln('serving from an empty queue!')
  6.   else
  7.     begin
  8.       e1 := q.data[ q.front ].dad;
  9.       e2 := q.data[ q.front ].son;
  10.       if q.front = maxQueue then
  11.         q.front := 1
  12.       else
  13.         q.front := q.front + 1;
  14.       if q.front = q.rear then  { empty queue }
  15.         q.front := 0;
  16.     end; {else}
  17. end; {serve}
  18.  
  19. procedure enqueue( var q : queue; e1, e2 : sector );
  20. begin
  21.   if q.front = 0 then
  22.     begin
  23.       q.front := 1;
  24.       q.rear := 2;
  25.       q.data[1].dad:= e1;
  26.       q.data[1].son := e2;
  27.     end {if}
  28.   else if q.front = q.rear then
  29.     writeln('queue full!')
  30.   else
  31.     begin
  32.       q.data[ q.rear ].dad := e1;
  33.       q.data[ q.rear].son := e2;
  34.       if q.rear = maxQueue then
  35.         q.rear := 1
  36.       else
  37.         q.rear := q.rear + 1;
  38.     end; {else}
  39. end; {enqueue}
  40.